program Project1; //Zadanie 3.21

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n=10;

var
 wiersze, kolumny : Integer;

begin
 Writeln('Program wyswietla tabliczke mnozenia dla liczb od 1 do 100.');
 Writeln;
 wiersze:=1;

 while (wiersze<=n) do
  begin
   kolumny:=1;
    while (kolumny<=n) do
     begin
      Write(wiersze*kolumny, #9);
      kolumny:=kolumny+1;
     end;
     Writeln;
     wiersze:=wiersze+1;
  end;
 Readln; //czeka na nacisniecie klawisza Enter
end.
